home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / TOOLS / NSCHART.ZIP / BIG.NS < prev    next >
Encoding:
Text File  |  1986-12-29  |  1.4 KB  |  47 lines
  1. title "gap.c"
  2. if "line height greater than 0 ?" then "line resolves" :
  3.   "transform window pointers"
  4.   "clear gap table and gap index"
  5.   "waslow = TRUE"
  6.   loop "for x from left to right"
  7.     "compute bits in current column"
  8.     if "bit count exceeds threshold?" then "yes" :
  9.       if "waslow?" then "rising edge" :
  10.         "store increasing x component in current gap item"
  11.         "waslow = FALSE"
  12.       endif
  13.     else "no" :
  14.       if "not waslow?" then "falling edge" :
  15.         "store decreasing x component in current gap item"
  16.         "waslow = TRUE , increment gap index"
  17.       endif
  18.     endif
  19.   endloop ""
  20.   "return TRUE"
  21. else "line doesn't resolve" :
  22.   "return FALSE"
  23. endif
  24. if "line height greater than 0 ?" then "line resolves" :
  25.   "transform window pointers"
  26.   "clear gap table and gap index"
  27.   "waslow = TRUE"
  28.   loop "for x from left to right"
  29.     "compute bits in current column"
  30.     if "bit count exceeds threshold?" then "yes" :
  31.       if "waslow?" then "rising edge" :
  32.         "store increasing x component in current gap item"
  33.         "waslow = FALSE"
  34.       endif
  35.     else "no" :
  36.       if "not waslow?" then "falling edge" :
  37.         "store decreasing x component in current gap item"
  38.         "waslow = TRUE , increment gap index"
  39.       endif
  40.     endif
  41.   endloop ""
  42.   "return TRUE"
  43. else "line doesn't resolve" :
  44.   "return FALSE"
  45. endif
  46.  
  47.